put value of word 2 of long name of this stack into theSource
answer file "Where shall I put the resources?" of type "STAK"
if it ≠ empty then
put it into theDest
set the itemdelimiter to ","
repeat with x=1 to number of lines of theList
CopyRes3 theSource,theDest,item 1 of line x of theList, ¬
item 2 of line x of theList,"R"
end repeat
if word 1 of the result = "Error" then
answer the result
else
set the itemdelimiter to ":"
put last item of theDest into theShortDest
answer "The resources have been copied to the stack “" & ¬
theShortDest & "”."
end if
end if
end mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>91</left>
<top>247</top>
<right>173</right>
<bottom>267</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Espi Sans</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>TestDrive</name>
<script>on mouseUp
TestDrive
end mouseUp</script>
</part>
<part>
<id>19</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>2</left>
<top>20</top>
<right>299</right>
<bottom>51</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Espi Sans</font>
<textSize>20</textSize>
<textStyle>bold</textStyle>
<textHeight>26</textHeight>
<name>XTernal</name>
<script></script>
</part>
<part>
<id>21</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>177</left>
<top>248</top>
<right>416</right>
<bottom>296</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Espi Sans</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>Copyright Address</name>
<script></script>
</part>
<part>
<id>24</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>2</left>
<top>2</top>
<right>122</right>
<bottom>19</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Espi Sans</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<textHeight>13</textHeight>
<name>Matthias Kahlert's</name>
<script></script>
</part>
<part>
<id>25</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>349</left>
<top>2</top>
<right>413</right>
<bottom>19</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Espi Sans</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<textHeight>13</textHeight>
<name>Version</name>
<script></script>
</part>
<part>
<id>27</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>5</left>
<top>247</top>
<right>87</right>
<bottom>267</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Espi Sans</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>About…</name>
<script>on mouseUp
XC_ShowAbout
end mouseUp</script>
</part>
<part>
<id>28</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>242</left>
<top>248</top>
<right>414</right>
<bottom>294</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Espi Sans</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>Resources</name>
<script>on mouseUp
hide me
end mouseUp</script>
</part>
<part>
<id>29</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>298</left>
<top>8</top>
<right>351</right>
<bottom>42</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUp
XC_ShowAbout
end mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>4</id>
<text><span class="style17"> This XFCN helps you identifying the CPU-Type of your Macintosh. Known CPUs are: MC 68000, MC 68010, MC 68020, MC 68030, MC 68040, IBM PowerPC 601, IBM PowerPC 603 and IBM PowerPC 604. For a unknown CPU you'll get the result “Unknown CPU”.
But you also get the type of the FPU of your Mac. Possible results are: No FPU, MC 68881 FPU, MC 68882 FPU, Built-In FPU and Unknown FPU.
The two result are seperated in two lines, the first line is the CPU, the second one the FPU.
</span><span class="style18">Syntax:
</span><span class="style19"> get Processor()
</span><span class="style17">
</span><span class="style14">Version History:
</span><span class="style17"> • Version 1.0 — 27.08.1995
- First release of this XFCN
If you wish to you can receive the C/C++ source code to this XTernal from me. Simply send me a formated disk and enough postage (or an international money order), then you soon get the code and other fine stacks or XTernals from me.
This stack and the XTernal in it are postcardware. If you like it or if you use it in your own stacks, simply send me a postcard of your hometown or some other small donation. It would also be nice if you mention my name in the credits-dialog.
</span><span class="style14">Other resources used in this stack:
</span><span class="style18">You can surely understand that I can't make any waranties pertaining an error-free function of this stack and the scripts and XTernals in it. In no event shall Matthias Kahlert be liable for any consequential, indirect or similar damages, including but not limited to any lost profits or lost data arising out of the use or inability to use this stack or it's resources. You use this stack on your own risk.</span></text>
